home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 029a / brodirxy.zip / BROWSALL.PGM < prev    next >
Text File  |  1991-02-23  |  5KB  |  66 lines
  1. «lb BROWSALL.PGM reads/edits consecutive files in directory. Rev. 2/23/91. By Jim Franklin, CIS 72136,224.»«glSav»
  2. «lbA» Çm ü?«prDir name? ESC=quit XC=done /=tree» üA ü?«lbB»«sx20,«rc»»«if«is27»ε«is20»=>0»«pr Quit»«ex»
  3. «ei»«if«is13»ε«is20»=>0!«is20»ε«is23»==0»«glC»
  4. «ei»«sv101,0»«if«is20»==«is14»»«glTree»
  5. «ei»«if@siz(«is20»)==1&«is20»ε«is60»=>0»«pv20»«glB»
  6. «ei»«if@siz(«is20»)==3&«is20»ε«is58»=>35»«pv20»«glB»
  7. «ei»«glB»
  8. «lbC»«gt02»«sx100,«is00»»«if@siz(«is100»)==0»«sx100,«va$pa»»«ei»«gt06» ü    «if«er»» Çw Ç╧ Ç╧ Ç╧ Ç╧ Çy ü?«glA»
  9. «ei»«pv04» ü?«pv05»«lbD»«sx20,«rc»»«if«is13»ε«is20»=>0!«is20»ε«is23»==0»«glE»
  10. «ei»«if«is27»ε«is20»=>0» ü«pr Quit»«ex»
  11. «ei»«if«is20»ε«is58»>-1&«is20»ε«is58»<83&@siz(«is20»)==3!@siz(«is20»)==6»«pv20»«glD»
  12. «ei»«if«is20»ε«is14»==0»«glSrch»
  13. «ei»«glD»
  14. «lbE»«pr »«sx101,«cp»» üA üca ü    «if«er»» üp ü     ü ÇS«pv05»«glD»
  15. «ei» üMove cursor to read. <E>dit <K>allPgm <N>ext <P>revious <D>ir <Q>uit Ç} ü?«lbF»«sx20,«rc»»«sx80,«is20»ε«is58»»«sx81,«is20»ε«is59»»«if«is20»==«is66»» ü!«ei»«if«is20»==«is67»» ü#«ei»«if@siz(«is20»)==3&«pv80»>-1&«pv80»<86»«pv20»«glF»
  16. «ei»«if«pv81»>1&«pv81»<4»«pr Next» üA üab
  17.  ü«pv100»«pv06» ü    «pv04» ÇU«glE»
  18. «ei»«if«pv81»>3&«pv81»<6»«pr Previous» üA üab
  19.  ü«pv100»«pv06» ü    «pv04» Çg«glE»
  20. «ei»«if«pv81»>5&«pv81»<8» üA üab
  21.  ü«sv100,»«sv101,0» ü?«pr Quit»«ex»
  22. «ei»«if«pv81»>9&«pv81»<12»«pr Return to directory» üA üab
  23.  ü«pv100»«pv06» ü    «pv04»«pv05»«glD»
  24. «ei»«sx30,«va$fp»»«if«is31»ε«is30»=>0!«is32»ε«is30»=>0!«is33»ε«is30»=>0!«is34»ε«is30»=>0!«is35»ε«is30»=>0!«is36»ε«is30»=>0!«is37»ε«is30»=>0»«glF»
  25. «ei»«if«pv81»>-1&«pv81»<2» ü ÇS«pr Editing»«ex»
  26. «ei»«if«pv81»>7&«pv81»<10» üA«sx11,«cp»» üab
  27.  ücap ü     üjmp «pv11» ü     ü ÇS ü¡ ü?«pr Editing pgm in expanded mode»«ex»
  28. «ei»«glF»
  29.  
  30. «lbSrch»«sv62,/.,
  31. »«su40, üA üse «pv41» ü    «pv44» Ç} ü?»«sv41, 0A»«su42,«if«er»»«sx41,«is46»» üA üjmp «pv43» ü     ü ÇS«pv44» ü?«pr »«ei» üú»«sx43,«cp»»«su44, üType filename to find    NewSearch = /    FindAgain = ,    CR ends search«pr » Ç}»«pv44»«lbFn»«sx99,«rc»»«sx98,«is99»ε«is62»»«if«pv98»==3»«sv41, 0A»«sv43,1» ü! ü ÇS«pv05»«glD»
  32. «ei»«if«is99»==«is65»!@siz(«is99»)=>3»«glFn»
  33. «ei»«if«pv98»==0»«sv41, 0A»«sv43,1» Ç±«glFn»
  34. «ei»«if«pv98»==2»«gt40»«gt42»«sx43,«cp»»«glFn»
  35. «ei»«if«pv98»==1&@siz(«is41»)>3»«sx46,«is41»»«sx45,@siz(«is41»)»«sx45,13-«pv45»»«glFo»
  36. «ei»«if«pv98»==1»«glFn»
  37. «ei»«sx98,«is99»ε«is60»»«if«pv98»<0!«pv98»>125»«glFn»
  38. «ei»«sx46,«is41»»«sx41,«is41»+«is99»» ü! Ç[«gt40»«gt42»«sx43,«cp»»«glFn»
  39.  
  40. «lbFo»«if«pv45»>0»«sx41,«is41»+«is65»»«sx45,«pv45»-1»«glFo»
  41. «ei» ü! Ç[«gt40»«gt42»«sx43,«cp»»«glFn»
  42.  
  43. «lbSav»«sx01,«is00»»«su02,«sx00,«is00»» üú»«su03,«if@siz(«is100»)>0» ü«pv100»«ei» üú»«su04, üjmp «pv101» ü     ü ÇS»«su05, ü?«pr Move cursor XC=read ESC=quit /=Srch» üA ü?»«su06, üA«sx100,@upr(«is100»)»«sx70,«is50»ε«is100»»«sx71,«is54»ε«is100»»«sx72,«is51»ε«is100»»«sx73,«is52»ε«is100»»«sx74,«is53»ε«is100»»«su75, Çm Çwdir »«if«pv70»=>0&«pv71»<>0»«pv75» Çy«ex»
  44. «ei»«if«pv72»=>0&«pv71»<>0»«pv75» Çy«ex»
  45. «ei»«if«pv70»=>0!«pv72»=>0»«ex»
  46. «ei»«if«pv71»<>0&«pv73»==-1&«pv74»<>0»«pv75»\ Çy«ex»
  47. «ei»«if«pv71»<>0&«pv73»==-1&«pv74»==0»«pv75» Çy«ex»
  48. «ei»«if«pv71»<>0&«pv73»==1&@siz(«is100»)>2&«pv74»<>2»«pv75» Çc Çc\ Çy«ex»
  49. «ei»«if«pv71»<>0&«pv73»==1»«pv75» Çy«ex»
  50. «ei»«if«pv71»==0&«pv73»==5&«pv74»<>6» Çm Çw Çc Çc Çc Çc Çc Çc\ Çy«ex»
  51. «ei» üú»«su07,«sx00,@upr(«is00»)»«sx01,@upr(«is01»)»«if«is57»ε«is00»==0&«is57»ε«is01»==0» ü«ex»«ei»«if«is57»ε«is00»==0» ü«pv01»«ei» üú»«su08,«sx21,«is101»» üú»«sv11,1»«sv13, ü    »«sv14,/»«sv21,0»«sv23,
  52. »«sv27,»«sv31,.EXE»«sv32,.COM»«sv33,.ZIP»«sv34,.ARC»«sv35,.LZH»«sv36,.ZOO»«sv37,.PAK»«sv50,?»«sv51,*»«sv52,:»«sv53,\»«sv54,DIR »«sx55,«vanw»»«sx56,«va$ws»»«if«pv55»==0&«pv56»==1»«pr Abort, Store or Open a Window»«ex»
  53. «ei»«sv57,RUN»«sv58, üÑ Çò üÑ Çô üÑ ü% üÑ ü' üѠǺ üÑ Ç╣ Çg ÇU Ç[ Çc ü3 ü5 ü7 ü1 Çw Çy Ç± ÇM Ç╖ Ç½ ü! ü# Ç] ü+ Ç╧ ü»«sv59,eEnNpPqQkKdD/»«sv60,1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZÄäâàáÅåªæÇçëêèÉéïîìíñÑôÖöòóºûùúÜüÿ£₧Æ¥αßΓπΣσµτΦΘΩδ∞φε!@#$%^&()_-?/\`.:*»«sv61,.»«sv65, »«sv66, ü╒»«sv67, ü╧»«gt02» üA ües 1 ü     ü«pv00»«gt03»«gt07»«gt02»«gt08»«sx101,«is21»» ües 0 ü     üdsort f,e ü     ü«pv00»«glA»
  54.  
  55. «lbTree» üA«pr » ütree
  56. «lbDr» ü Move cursor. XC=ChDir ESC=quit D=NewDrive Ç} ü?«pr »«lbDs»«sx20,«rc»»«sx20,@upr(«is20»)»«sx76,«is20»ε«is58»»«if@siz(«is20»)==3&«pv76»>-1&«pv76»<84»«pv20»«ei»«if«is13»ε«is20»=>0!«is20»ε«is23»==0» üA ücd ÇS ü    «glC»
  57. «ei»«if«is27»ε«is20»=>0» ü«pr Quit»«ex»
  58. «ei»«if@siz(«is20»)==3»«glDs»
  59. «ei»«if«is20»ε«is59»==11»«glDt»
  60. «ei»«glDs»
  61.  
  62. «lbDt»«pr Enter drive letter»«sx20,«rc»»«sx77,«is20»ε«is60»»«sx78,@siz(«is20»)»«if«pv77»<10!«pv77»>62!«pv78»<>1»«glDt»
  63. «ei» üA«su90,«sv91,»«sx91,«is91»+«vapl»» üú»«gt90» ü«pv20»:
  64. «sx79,«va$er»»«if«pv79»==227» ü?«pr Invalid drive» üA üp ü     ü    «glDr»
  65. «ei»«glTree»
  66.